home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / moving2a / bubble~1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-09-05  |  4.8 KB  |  159 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    BackColor       =   &H00FFFF00&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   3195
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   4215
  10.    ForeColor       =   &H00FFFF00&
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3195
  13.    ScaleWidth      =   4215
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CommandButton Command1 
  17.       Caption         =   "&Start"
  18.       Height          =   375
  19.       Left            =   1560
  20.       TabIndex        =   1
  21.       Top             =   2760
  22.       Width           =   1575
  23.    End
  24.    Begin VB.Timer Timer1 
  25.       Interval        =   1
  26.       Left            =   0
  27.       Top             =   2760
  28.    End
  29.    Begin VB.Label Label4 
  30.       BackStyle       =   0  'Transparent
  31.       Caption         =   "D"
  32.       BeginProperty Font 
  33.          Name            =   "Franklin Gothic Book"
  34.          Size            =   48
  35.          Charset         =   0
  36.          Weight          =   400
  37.          Underline       =   0   'False
  38.          Italic          =   0   'False
  39.          Strikethrough   =   0   'False
  40.       EndProperty
  41.       Height          =   975
  42.       Left            =   3600
  43.       TabIndex        =   4
  44.       Top             =   840
  45.       Width           =   615
  46.    End
  47.    Begin VB.Label Label3 
  48.       BackStyle       =   0  'Transparent
  49.       Caption         =   "e"
  50.       BeginProperty Font 
  51.          Name            =   "Franklin Gothic Book"
  52.          Size            =   48
  53.          Charset         =   0
  54.          Weight          =   400
  55.          Underline       =   0   'False
  56.          Italic          =   0   'False
  57.          Strikethrough   =   0   'False
  58.       EndProperty
  59.       Height          =   975
  60.       Left            =   2400
  61.       TabIndex        =   3
  62.       Top             =   840
  63.       Width           =   495
  64.    End
  65.    Begin VB.Label Label2 
  66.       BackStyle       =   0  'Transparent
  67.       Caption         =   "e"
  68.       BeginProperty Font 
  69.          Name            =   "Franklin Gothic Book"
  70.          Size            =   48
  71.          Charset         =   0
  72.          Weight          =   400
  73.          Underline       =   0   'False
  74.          Italic          =   0   'False
  75.          Strikethrough   =   0   'False
  76.       EndProperty
  77.       Height          =   975
  78.       Left            =   1200
  79.       TabIndex        =   2
  80.       Top             =   840
  81.       Width           =   495
  82.    End
  83.    Begin VB.Label Label1 
  84.       BackStyle       =   0  'Transparent
  85.       Caption         =   "S"
  86.       BeginProperty Font 
  87.          Name            =   "Franklin Gothic Book"
  88.          Size            =   48
  89.          Charset         =   0
  90.          Weight          =   400
  91.          Underline       =   0   'False
  92.          Italic          =   0   'False
  93.          Strikethrough   =   0   'False
  94.       EndProperty
  95.       Height          =   975
  96.       Left            =   0
  97.       TabIndex        =   0
  98.       Top             =   840
  99.       Width           =   495
  100.    End
  101. Attribute VB_Name = "Form2"
  102. Attribute VB_GlobalNameSpace = False
  103. Attribute VB_Creatable = False
  104. Attribute VB_PredeclaredId = True
  105. Attribute VB_Exposed = False
  106. Sub Pause(interval)
  107.     'pause/waits for "interval" seconds
  108.     Current = Timer
  109.     Do While Timer - Current < Val(interval)
  110.         DoEvents
  111.         Loop
  112.     End Sub
  113. Private Sub Command1_Click()
  114.     Timer1.Enabled = True
  115. End Sub
  116. Private Sub Form_Load()
  117.     Timer1.Enabled = False
  118. End Sub
  119. Private Sub Timer1_Timer()
  120.     Label1.Left = Label1.Left + 150
  121.         If Label1.Top = 840 And Label1.Left = 1080 Then
  122.         
  123.             Pause (5)
  124.         
  125.         End If
  126.         
  127.     '__________________________________________________________________
  128.     'Next letter...
  129.     '__________________________________________________________________
  130.     Label2.Left = Label2.Left + 150
  131.         If Label2.Left = 1560 And Label2.Top = 840 Then
  132.         
  133.             Pause (5)
  134.             
  135.         End If
  136.         
  137.     '__________________________________________________________________
  138.     'Next letter...
  139.     '__________________________________________________________________
  140.     Label3.Left = Label3.Left - 150
  141.         If Label3.Left = 2040 And Label3.Top = 840 Then
  142.         
  143.             Pause (5)
  144.             
  145.         End If
  146.         
  147.     '__________________________________________________________________
  148.     'Next letter...
  149.     '__________________________________________________________________
  150.     Label4.Left = Label4.Left - 150
  151.             
  152.         If Label4.Left = 2520 And Label4.Top = 840 Then
  153.         
  154.             Pause (5)
  155.             
  156.         End If
  157.                                     
  158. End Sub
  159.